load the data manipulation libraries
load in the data
trend
split(crimes, f = as.factor(crimes$Survey.year))
$`2001`
$`2002`
$`2003`
$`2004`
$`2005`
$`2006`
$`2007`
$`2008`
$`2009`
$`2010`
$`2011`
$`2012`
$`2013`
$`2014`
NA
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQojI2xvYWQgdGhlIGRhdGEgbWFuaXB1bGF0aW9uIGxpYnJhcmllcwpgYGB7cn0KCmBgYAoKIyNsb2FkIGluIHRoZSBkYXRhCmBgYHtyfQpjcmltZXMgPC0gcmVhZC5jc3YoIi4uL2RhdGEvT1BFIENTUyBDdXN0b20gRGF0YSAyMDE3LTAyLTEyIDEzNDg1Ni9DcmltaW5hbF9PZmZlbnNlc19Pbl9jYW1wdXMuY3N2IikKZm9yKGkgaW4gNjoxOSl7CiAgYXMubnVtZXJpYyhjcmltZXNbLGldKQp9ICNjb252ZXJ0IGludGVnZXIgdG8gbnVtYmVyaWMKYGBgCgojI3RyZW5kCmBgYHtyfQpjcmltZXMkdG90YWwgPC0gcm93U3VtcyhjcmltZXNbLC1jKDE6NildLG5hLnJtID0gVFJVRSkgI3N1bSBvZiBhbGwgdHlwZXMgb2YgY3JpbWVzIGZvciBlYWNoIGluc3RpdHV0aW9uCmNyaW1lcy5zcGxpdCA8LSBzcGxpdChjcmltZXMsIGYgPSBhcy5mYWN0b3IoY3JpbWVzJFN1cnZleS55ZWFyKSkKeWVhci5zdW0gPC0gTkEKZm9yKGkgaW4gMTogbGVuZ3RoKGNyaW1lcy5zcGxpdCkpewogeWVhci5zdW1baV0gPC0gc3VtKGNyaW1lcy5zcGxpdFtbaV1dJHRvdGFsKSAKfSAjY2FsY3VsYXRlIHRvdGFsIGNyaW1lcyBvZiBldmVyeSB5ZWFyCmBgYA==